From: Thien-Thi Nguyen <ttn@gnuvola.org>
Date: Sun, 18 Mar 2007 11:40:13 +0000 (+0000)
Subject: (open-tls-stream): In handshake-waiting loop,
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~1538
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=5e68ddd5317393db45175c398e9f4f49584bae5f;p=emacs.git

(open-tls-stream): In handshake-waiting loop,
don't wait more if there is output available to process.
---

diff --git a/lisp/net/tls.el b/lisp/net/tls.el
index 3b6f0ac44be..9de74ca19d4 100644
--- a/lisp/net/tls.el
+++ b/lisp/net/tls.el
@@ -146,8 +146,8 @@ Fourth arg PORT is an integer specifying a port to connect to."
 		      (set-buffer buffer) ;; XXX "blue moon" nntp.el bug
 		      (goto-char (point-min))
 		      (not (setq done (re-search-forward tls-success nil t)))))
-	  (accept-process-output process 1)
-	  (sit-for 1))
+	  (unless (accept-process-output process 1)
+            (sit-for 1)))
 	(message "Opening TLS connection with `%s'...%s" cmd
 		 (if done "done" "failed"))
 	(if done